Készíthet ilyen változatú lemezt
type muint64 = rekord
eset logikai értéke
igaz: (i64: int64);
hamis: (lo32, hi32: bíboros);
vége;
Most már csak a bíborosok segítségével töltheti be az uint64-et aláíratlan adatokkal.
A másik lehetőség az ilyen kód használata lenne:
const szinte maxx64 = 800000045000000 USD;
var muint64: int64;
kezdődik
muint64: = majdnemmaxint64;
muint64: = muint64 shl 1;
vége
|
A fordító támogatása nélkül nincs sok lehetősége.
Feltételezem, hogy át akar adni egy értéket valamely külső DLL függvényében. A paramétert aláírt 64 bites egész számnak, Int64-nek kell nyilvánítania. Ezután csak annyit tehet, hogy beírja az aláírt értéket, amelynek bitmintája megegyezik a kívánt aláíratlan értékkel. Készítsen magának egy kis átalakító eszközt egy olyan fordítóval, amely támogatja az aláíratlan 64 bites egész számokat.
|
Hagyományosan a Broland megvalósításai interoperabilitási problémákat szenvedtek, mivel a legnagyobb, aláíratlanul hiányzott a célplatform. Emlékszem, hogy a DWORD helyett LongInt-értékeket használtam, és vártam a problémákat a Turbo Pascal for Windows kezdetei óta. Akkor a bíboros boldogság volt, de nem, a D4 bevezette a legnagyobb Int64 egész számot csak aláírt formájában. Újra.
Tehát az egyetlen lehetősége az, hogy támaszkodik az aláírt alaptípusú Int64-re és imádkozik ... várjon, nem, csak használja az Int64Rec típusú specifikációt az aritmetika elvégzésére a legkevesebb és legjelentősebb részben külön-külön.
Vissza az állandó nyilatkozathoz:
konst
foo = 8000004200000001 USD; // ez azért fog működni, mert a hexadecimális jelölés jellege szerint nincs aláírva
// a deklarált foo szimbólum azonban aláírt Int64 értékűvé válik
// a tizedes szám használatának megkísérlése "Egész szám konstans túl nagy" hibát eredményez
// további részletekért lásd a D7 súgó "Igaz állandók" témakörét
TForm1.FormCreate eljárás (Feladó: TObject);
kezdődik
// csak az igazolás érdekében
Felirat: = IntToHex (foo, SizeOf (Int64) * 2);
vége;
Sajnos a másik megoldás a fordító megváltoztatása. A Free Pascal mindig szinkronban tartja az aláírt és az aláíratlan típusokat.
Ez a kódrészlet a Borland Delphi 15.0 verziójában áll össze és helyes eredményt ad (más néven Delphi 7).
|
A válaszod
StackExchange.ifUsing ("editor", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("kivonatok", function () {
StackExchange.snippets.init ();
});
});
}, "kódrészletek");
StackExchange.ready (function () {
var channelOptions = {
címkék: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// A szerkesztőt töredékek után kell indítania, ha a kivonatok engedélyezve vannak
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("kivonatok", function () {
createEditor ();
});
}
más {
createEditor ();
}
});
function createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: hamis,
heartbeatType: 'válasz',
autoActivateHeartbeat: hamis,
convertImagesToLinks: true,
noModals: igaz,
showLowRepImageUploadWarning: igaz,
reputációToPostImages: 10,
bindNavPrevention: igaz,
postfix: "",
imageUploader: {
brandingHtml: "Powered by \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none \" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46.2665 7.94324 47.1084 7.58816C47.4091 7.46349 47.7169 7.36433 48.0099 7.26993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414 4.61182C47.4335 4.61182 46.7256 4 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 144.04 144 144 144 144 144 0 144 0 144 0 144 144 144 144 0 144 144 144 144 144 144 0 144 144 144 144 141 141 141 141 141 141 141 141 141 141 141 141 141 141 141 141 141 141 144 144 144 144 144 144 141 141 142 144 141 144 144 144 144 144 1418 képest vissza ülésre 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5455C35 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-szabály = \" evenodd \ "clip-rule = = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.9950 4,509 263 4 4 950 4 262 4 5 9 4 5 9 5 9 5 5 9 5 5 .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.8346C28.1252 15.2321 24.1352 14.9821 23.5661 14.7787C23.176 14.6393 22.8472 14.5218 22.5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.633525.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 11.5116 26.1024 11.5116C24.973 M16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62866 14.279 4.613 4.613 8.57809 4.89931 7.9466 5.5079C7.58314 4.9328 7.10506 4.66232 6.51203 4.66232C5.47873 4.66232 5.00066 5.28821 5.00066 6.59049V11.9512C5.00066 13.2535 5.47873 13.8962 6.51203 13.8962C7.5449 134 5104 6.91179 10.893 7.58817 10.893 8.94108V11.9512C10.893 13.2535 11.3711 13.8962 12.4044 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 1 5.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath d = \" M3.31675 6.59049C3.31675 5.28821 2.83866 4.66232 1.82471 4.66232C0.791758 4.66232 0.313 0.791758 13.8962 1.82471 13.8962C2.85798 13.8962 3.31675 13.2535 3.31675 11.9512V6.59049Z \ "/ \ u003e \ u003cpath d = \" M1.87209 0.400291C0.843612 0.400291 0 1.1159 0 1.988677 3.7677 3.6767 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \ "fill = \" # 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml: "Felhasználói hozzájárulások a \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com címen engedélyezettek / legal / content-policy \ "\ u003e (tartalmi irányelv) \ u003c / a \ u003e",
allowUrls: igaz
},
onDemand: igaz,
discardSelector: ".discard-answer"
, azonnalShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Köszönjük, hogy közreműködött a Stack Overflow válaszában!
Kérjük, feltétlenül válaszoljon a kérdésre. Adjon meg részleteket és ossza meg kutatását!
De kerüld ...
Kérjen segítséget, pontosítást vagy válaszoljon más válaszokra.
Nyilatkozatok tétele vélemény alapján; támassza alá őket referenciákkal vagy személyes tapasztalatokkal.
Ha többet szeretne megtudni, olvassa el a nagyszerű válaszok megírásával kapcsolatos tippjeinket.
Piszkozat mentve
Piszkozat eldobva
Regisztráljon vagy jelentkezzen be
StackExchange.ready (function () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Regisztráljon a Google segítségével
Regisztráljon a Facebook segítségével
Regisztráljon az E-mail és a Jelszó használatával
Beküldés
Hozzászólás vendégként
Név
Email
Kötelező, de soha nem látható
StackExchange.ready (
függvény () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-unsigned-64-bit-integer-in-delphi7% 23új válasz ',' kérdés_oldal ');
}
);
Hozzászólás vendégként
Név
Email
Kötelező, de soha nem látható
Tegye közzé válaszát
Dobja el
A „Válasz elküldése” gombra kattintva elfogadja az Általános Szerződési Feltételeinket, az adatvédelmi irányelveket és a cookie-kat
Nem a keresett válasz? Böngésszen a delphi uint64 címkével ellátott többi kérdésben, vagy tegye fel saját kérdését.